home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_all.zip / TI579.ASC < prev    next >
Text File  |  1992-09-03  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Turbo Pascal                           NUMBER  :  579
  9.   VERSION  :  6.0
  10.        OS  :  MS/PC DOS
  11.      DATE  :  September 3, 1992                        PAGE  :  1/2
  12.  
  13.     TITLE  :  EDITORS.PAS 3,4,5,6 Entry Patch
  14.  
  15.  
  16.  
  17.  
  18.   The following patch fixes the problem of not being able to enter
  19.   numbers 3 through 6 into the editor of the EDITORS.PAS example
  20.   shipped with Turbo Pascal 6.0.
  21.  
  22.   Open EDITORS.PAS in the TURBO editor and search for the EXISTING
  23.   code.   Once that is found change the EXISTING code to the CHANGE
  24.   TO code.  Save your changes and recompile EDITORS.PAS.
  25.  
  26.  
  27.   EXISTING:                        EXISTING:
  28.  
  29.           LODSW                    var
  30.           OR      BL,BL              Key: Word;
  31.           JE      @@2
  32.           CMP     BL,DL            CHANGE TO:
  33.  
  34.   CHANGE TO:                       var
  35.                                      ShiftState: Byte absolute
  36.           LODSW                        $40:$17;
  37.           CMP     BL,DL              Key: Word;
  38.  
  39.  
  40.   --------------------------       --------------------------
  41.  
  42.  
  43.   EXISTING:                        EXISTING:
  44.  
  45.           JE      @@4              begin
  46.   @@2:    CMP     BH,DH              Key := Event.KeyCode;
  47.           JE      @@4
  48.                                    CHANGE TO:
  49.   CHANGE TO:
  50.                                    begin
  51.           JE      @@4                if (ShiftState and $03 <> 0)
  52.           CMP     BH,DH               and (Event.ScanCode >= $47)
  53.           JE      @@4                  and (Event.ScanCode <= $51)
  54.                                    then
  55.                                        Event.CharCode := #0;
  56.                                      Key := Event.KeyCode;
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT  :  Turbo Pascal                           NUMBER  :  579
  75.   VERSION  :  6.0
  76.        OS  :  MS/PC DOS
  77.      DATE  :  September 3, 1992                        PAGE  :  2/2
  78.  
  79.     TITLE  :  EDITORS.PAS 3,4,5,6 Entry Patch
  80.  
  81.  
  82.  
  83.  
  84.   DISCLAIMER: You have the right to use this technical information
  85.   subject to the terms of the No-Nonsense License Statement that
  86.   you received with the Borland product to which this information
  87.   pertains.
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.